#z1 <- (92 - 81)/5
#z2 <- (93 - 81)/5

#prob <- abs(pnorm(z2) - pnorm(z1))
#prob

#pnorm(93,81,5) - pnorm(92,81,5)



abs(pnorm(93.8,97,7) - pnorm(96.2,97,7))